inherited UserDM: TUserDM
  OldCreateOrder = True
  inherited SqlControl: TSQLDataSet
    SchemaName = 'sysdba'
    CommandText = 
      'SELECT USR.USER_ID,'#13#10'             USR.NAME,'#13#10'             USR.EM' +
      'AIL,'#13#10'             USR.PHONE,'#13#10'             USR.LOGIN,'#13#10'        ' +
      '     USR.PASSW,'#13#10'             USR.ISADMIN'#13#10'FROM USERS USR'#13#10'ORDER' +
      ' BY USR.USER_ID'
    object SqlControlUSER_ID: TIntegerField
      DefaultExpression = '0'
      DisplayLabel = 'User ID'
      FieldName = 'USER_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object SqlControlNAME: TStringField
      FieldName = 'NAME'
      Required = True
      Size = 100
    end
    object SqlControlEMAIL: TStringField
      DisplayLabel = 'E-Mail'
      FieldName = 'EMAIL'
      Required = True
      Size = 50
    end
    object SqlControlPHONE: TStringField
      FieldName = 'PHONE'
      Size = 50
    end
    object SqlControlLOGIN: TStringField
      DisplayLabel = 'Login Name'
      FieldName = 'LOGIN'
      Required = True
      Size = 50
    end
    object SqlControlPASSW: TStringField
      FieldName = 'PASSW'
      Required = True
      Size = 50
    end
    object SqlControlISADMIN: TStringField
      DefaultExpression = 'N'
      FieldName = 'ISADMIN'
      Required = True
      FixedChar = True
      Size = 1
    end
  end
  inherited dspControl: TDataSetProvider
    BeforeUpdateRecord = dspControlBeforeUpdateRecord
  end
  inherited cdsControl: TClientDataSet
    BeforePost = cdsControlBeforePost
    object cdsControlUSER_ID: TIntegerField
      FieldName = 'USER_ID'
      Required = True
    end
    object cdsControlNAME: TStringField
      FieldName = 'NAME'
      Required = True
      Size = 100
    end
    object cdsControlEMAIL: TStringField
      FieldName = 'EMAIL'
      Required = True
      Size = 50
    end
    object cdsControlPHONE: TStringField
      FieldName = 'PHONE'
      Size = 50
    end
    object cdsControlLOGIN: TStringField
      FieldName = 'LOGIN'
      Required = True
      Size = 50
    end
    object cdsControlPASSW: TStringField
      FieldName = 'PASSW'
      Required = True
      Size = 50
    end
    object cdsControlISADMIN: TStringField
      FieldName = 'ISADMIN'
      Required = True
      OnGetText = cdsControlISADMINGetText
      FixedChar = True
      Size = 1
    end
  end
end
